home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1999-09-02 | 3.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 05 43 6c 61 73 73 0d 53 | 70 69 66 66 79 54 6f 6f |.Class.S|piffyToo|
|00000010| 6c 62 61 72 05 39 9a 0c | ab 07 05 00 0d 53 70 69 |lbar.9..|.....Spi|
|00000020| 66 66 79 54 6f 6f 6c 62 | 61 72 b8 01 06 43 61 6e |ffyToolb|ar...Can|
|00000030| 76 61 73 06 12 42 75 74 | 74 6f 6e 28 30 29 20 61 |vas..But|ton(0) a|
|00000040| 73 20 53 54 62 74 6e 00 | 14 50 69 63 74 75 72 65 |s STbtn.|.Picture|
|00000050| 55 70 20 61 73 20 50 69 | 63 74 75 72 65 00 16 50 |Up as Pi|cture..P|
|00000060| 69 63 74 75 72 65 44 6f | 77 6e 20 61 73 20 50 69 |ictureDo|wn as Pi|
|00000070| 63 74 75 72 65 00 1a 50 | 69 63 74 75 72 65 44 69 |cture..P|ictureDi|
|00000080| 73 61 62 6c 65 64 20 61 | 73 20 50 69 63 74 75 72 |sabled a|s Pictur|
|00000090| 65 00 18 43 75 72 72 65 | 6e 74 42 75 74 74 6f 6e |e..Curre|ntButton|
|000000a0| 20 61 73 20 49 6e 74 65 | 67 65 72 01 17 50 69 63 | as Inte|ger..Pic|
|000000b0| 74 75 72 65 48 6f 76 65 | 72 20 61 73 20 50 69 63 |tureHove|r as Pic|
|000000c0| 74 75 72 65 00 02 09 4e | 65 77 42 75 74 74 6f 6e |ture...N|ewButton|
|000000d0| 98 01 4c 65 66 74 20 61 | 73 20 49 6e 74 65 67 65 |..Left a|s Intege|
|000000e0| 72 2c 20 54 6f 70 20 61 | 73 20 49 6e 74 65 67 65 |r, Top a|s Intege|
|000000f0| 72 2c 20 57 69 64 74 68 | 20 61 73 20 49 6e 74 65 |r, Width| as Inte|
|00000100| 67 65 72 2c 20 48 65 69 | 67 68 74 20 61 73 20 49 |ger, Hei|ght as I|
|00000110| 6e 74 65 67 65 72 2c 20 | 45 6e 61 62 6c 65 64 20 |nteger, |Enabled |
|00000120| 61 73 20 42 6f 6f 6c 65 | 61 6e 05 53 54 62 74 6e |as Boole|an.STbtn|
|00000130| 00 01 00 01 00 0b b5 01 | 46 75 6e 63 74 69 6f 6e |........|Function|
|00000140| 20 4e 65 77 42 75 74 74 | 6f 6e 28 4c 65 66 74 20 | NewButt|on(Left |
|00000150| 61 73 20 49 6e 74 65 67 | 65 72 2c 20 54 6f 70 20 |as Integ|er, Top |
|00000160| 61 73 20 49 6e 74 65 67 | 65 72 2c 20 57 69 64 74 |as Integ|er, Widt|
|00000170| 68 20 61 73 20 49 6e 74 | 65 67 65 72 2c 20 48 65 |h as Int|eger, He|
|00000180| 69 67 68 74 20 61 73 20 | 49 6e 74 65 67 65 72 2c |ight as |Integer,|
|00000190| 20 45 6e 61 62 6c 65 64 | 20 61 73 20 42 6f 6f 6c | Enabled| as Bool|
|000001a0| 65 61 6e 29 20 41 73 20 | 53 54 62 74 6e 0e 44 69 |ean) As |STbtn.Di|
|000001b0| 6d 20 42 20 61 73 20 53 | 54 62 74 6e 0b 42 3d 4e |m B as S|Tbtn.B=N|
|000001c0| 65 77 20 53 54 62 74 6e | 0b 42 2e 4c 65 66 74 3d |ew STbtn|.B.Left=|
|000001d0| 4c 65 66 74 09 42 2e 54 | 6f 70 3d 54 6f 70 0d 42 |Left.B.T|op=Top.B|
|000001e0| 2e 57 69 64 74 68 3d 57 | 69 64 74 68 0f 42 2e 48 |.Width=W|idth.B.H|
|000001f0| 65 69 67 68 74 3d 48 65 | 69 67 68 74 11 42 2e 45 |eight=He|ight.B.E|
|00000200| 6e 61 62 6c 65 64 3d 45 | 6e 61 62 6c 65 64 0b 42 |nabled=E|nabled.B|
|00000210| 2e 50 61 72 65 6e 74 3d | 4d 65 0f 42 75 74 74 6f |.Parent=|Me.Butto|
|00000220| 6e 2e 41 70 70 65 6e 64 | 20 42 0c 45 6e 64 20 46 |n.Append| B.End F|
|00000230| 75 6e 63 74 69 6f 6e 0b | 44 72 61 77 54 6f 6f 6c |unction.|DrawTool|
|00000240| 62 61 72 00 00 00 01 00 | 01 00 0f 11 53 75 62 20 |bar.....|....Sub |
|00000250| 44 72 61 77 54 6f 6f 6c | 62 61 72 28 29 1e 44 69 |DrawTool|bar().Di|
|00000260| 6d 20 50 20 61 73 20 50 | 69 63 74 75 72 65 2c 20 |m P as P|icture, |
|00000270| 49 20 61 73 20 49 6e 74 | 65 67 65 72 2a 50 3d 4e |I as Int|eger*P=N|
|00000280| 65 77 50 69 63 74 75 72 | 65 28 57 69 64 74 68 2c |ewPictur|e(Width,|
|00000290| 48 65 69 67 68 74 2c 53 | 63 72 65 65 6e 28 30 29 |Height,S|creen(0)|
|000002a0| 2e 44 65 70 74 68 29 24 | 50 2e 47 72 61 70 68 69 |.Depth)$|P.Graphi|
|000002b0| 63 73 2e 44 72 61 77 50 | 69 63 74 75 72 65 20 50 |cs.DrawP|icture P|
|000002c0| 69 63 74 75 72 65 55 70 | 2c 30 2c 30 19 46 6f 72 |ictureUp|,0,0.For|
|000002d0| 20 49 3d 31 20 54 6f 20 | 55 62 6f 75 6e 64 28 42 | I=1 To |Ubound(B|
|000002e0| 75 74 74 6f 6e 29 1d 49 | 66 20 4e 6f 74 20 42 75 |utton).I|f Not Bu|
|000002f0| 74 74 6f 6e 28 49 29 2e | 45 6e 61 62 6c 65 64 20 |tton(I).|Enabled |
|00000300| 54 68 65 6e a2 02 50 2e | 47 72 61 70 68 69 63 73 |Then..P.|Graphics|
|00000310| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 50 69 63 |.DrawPic|ture Pic|
|00000320| 74 75 72 65 44 69 73 61 | 62 6c 65 64 2c 42 75 74 |tureDisa|bled,But|
|00000330| 74 6f 6e 28 49 29 2e 4c | 65 66 74 2c 42 75 74 74 |ton(I).L|eft,Butt|
|00000340| 6f 6e 28 49 29 2e 54 6f | 70 2c 42 75 74 74 6f 6e |on(I).To|p,Button|
|00000350| 28 49 29 2e 57 69 64 74 | 68 2c 42 75 74 74 6f 6e |(I).Widt|h,Button|
|00000360| 28 49 29 2e 48 65 69 67 | 68 74 2c 42 75 74 74 6f |(I).Heig|ht,Butto|
|00000370| 6e 28 49 29 2e 4c 65 66 | 74 2c 42 75 74 74 6f 6e |n(I).Lef|t,Button|
|00000380| 28 49 29 2e 54 6f 70 2c | 42 75 74 74 6f 6e 28 49 |(I).Top,|Button(I|
|00000390| 29 2e 57 69 64 74 68 2c | 42 75 74 74 6f 6e 28 49 |).Width,|Button(I|
|000003a0| 29 2e 48 65 69 67 68 74 | 1b 45 6c 73 65 49 66 20 |).Height|.ElseIf |
|000003b0| 42 75 74 74 6f 6e 28 49 | 29 2e 56 61 6c 75 65 20 |Button(I|).Value |
|000003c0| 54 68 65 6e 9e 02 50 2e | 47 72 61 70 68 69 63 73 |Then..P.|Graphics|
|000003d0| 2e 44 72 61 77 50 69 63 | 74 75 72 65 20 50 69 63 |.DrawPic|ture Pic|
|000003e0| 74 75 72 65 44 6f 77 6e | 2c 42 75 74 74 6f 6e 28 |tureDown|,Button(|
|000003f0| 49 29 2e 4c 65 66 74 2c | 42 75 74 74 6f 6e 28 49 |I).Left,|Button(I|
|00000400| 29 2e 54 6f 70 2c 42 75 | 74 74 6f 6e 28 49 29 2e |).Top,Bu|tton(I).|
|00000410| 57 69 64 74 68 2c 42 75 | 74 74 6f 6e 28 49 29 2e |Width,Bu|tton(I).|
|00000420| 48 65 69 67 68 74 2c 42 | 75 74 74 6f 6e 28 49 29 |Height,B|utton(I)|
|00000430| 2e 4c 65 66 74 2c 42 75 | 74 74 6f 6e 28 49 29 2e |.Left,Bu|tton(I).|
|00000440| 54 6f 70 2c 42 75 74 74 | 6f 6e 28 49 29 2e 57 69 |Top,Butt|on(I).Wi|
|00000450| 64 74 68 2c 42 75 74 74 | 6f 6e 28 49 29 2e 48 65 |dth,Butt|on(I).He|
|00000460| 69 67 68 74 1b 45 6c 73 | 65 49 66 20 42 75 74 74 |ight.Els|eIf Butt|
|00000470| 6f 6e 28 49 29 2e 48 6f | 76 65 72 20 54 68 65 6e |on(I).Ho|ver Then|
|00000480| 9f 02 50 2e 47 72 61 70 | 68 69 63 73 2e 44 72 61 |..P.Grap|hics.Dra|
|00000490| 77 50 69 63 74 75 72 65 | 20 50 69 63 74 75 72 65 |wPicture| Picture|
|000004a0| 48 6f 76 65 72 2c 42 75 | 74 74 6f 6e 28 49 29 2e |Hover,Bu|tton(I).|
|000004b0| 4c 65 66 74 2c 42 75 74 | 74 6f 6e 28 49 29 2e 54 |Left,But|ton(I).T|
|000004c0| 6f 70 2c 42 75 74 74 6f | 6e 28 49 29 2e 57 69 64 |op,Butto|n(I).Wid|
|000004d0| 74 68 2c 42 75 74 74 6f | 6e 28 49 29 2e 48 65 69 |th,Butto|n(I).Hei|
|000004e0| 67 68 74 2c 42 75 74 74 | 6f 6e 28 49 29 2e 4c 65 |ght,Butt|on(I).Le|
|000004f0| 66 74 2c 42 75 74 74 6f | 6e 28 49 29 2e 54 6f 70 |ft,Butto|n(I).Top|
|00000500| 2c 42 75 74 74 6f 6e 28 | 49 29 2e 57 69 64 74 68 |,Button(|I).Width|
|00000510| 2c 42 75 74 74 6f 6e 28 | 49 29 2e 48 65 69 67 68 |,Button(|I).Heigh|
|00000520| 74 06 45 6e 64 20 49 66 | 04 4e 65 78 74 1a 47 72 |t.End If|.Next.Gr|
|00000530| 61 70 68 69 63 73 2e 44 | 72 61 77 50 69 63 74 75 |aphics.D|rawPictu|
|00000540| 72 65 20 50 2c 30 2c 30 | 07 45 6e 64 20 53 75 62 |re P,0,0|.End Sub|
|00000550| 04 0a 42 75 74 74 6f 6e | 44 6f 77 6e 16 42 75 74 |..Button|Down.But|
|00000560| 74 6f 6e 49 6e 64 65 78 | 20 61 73 20 49 6e 74 65 |tonIndex| as Inte|
|00000570| 67 65 72 00 08 42 75 74 | 74 6f 6e 55 70 16 42 75 |ger..But|tonUp.Bu|
|00000580| 74 74 6f 6e 49 6e 64 65 | 78 20 61 73 20 49 6e 74 |ttonInde|x as Int|
|00000590| 65 67 65 72 00 0b 42 75 | 74 74 6f 6e 45 6e 74 65 |eger..Bu|ttonEnte|
|000005a0| 72 16 42 75 74 74 6f 6e | 49 6e 64 65 78 20 61 73 |r.Button|Index as|
|000005b0| 20 49 6e 74 65 67 65 72 | 00 0a 42 75 74 74 6f 6e | Integer|..Button|
|000005c0| 45 78 69 74 16 42 75 74 | 74 6f 6e 49 6e 64 65 78 |Exit.But|tonIndex|
|000005d0| 20 61 73 20 49 6e 74 65 | 67 65 72 00 0a 0a 44 72 | as Inte|ger...Dr|
|000005e0| 6f 70 4f 62 6a 65 63 74 | 01 00 01 00 03 1f 53 75 |opObject|......Su|
|000005f0| 62 20 44 72 6f 70 4f 62 | 6a 65 63 74 28 6f 62 6a |b DropOb|ject(obj|
|00000600| 20 41 73 20 44 72 61 67 | 49 74 65 6d 29 00 07 45 | As Drag|Item)..E|
|00000610| 6e 64 20 53 75 62 05 43 | 6c 6f 73 65 01 00 01 00 |nd Sub.C|lose....|
|00000620| 03 0b 53 75 62 20 43 6c | 6f 73 65 28 29 00 07 45 |..Sub Cl|ose()..E|
|00000630| 6e 64 20 53 75 62 04 4f | 70 65 6e 01 00 01 00 03 |nd Sub.O|pen.....|
|00000640| 0a 53 75 62 20 4f 70 65 | 6e 28 29 00 07 45 6e 64 |.Sub Ope|n()..End|
|00000650| 20 53 75 62 09 4d 6f 75 | 73 65 45 78 69 74 01 00 | Sub.Mou|seExit..|
|00000660| 01 00 07 0f 53 75 62 20 | 4d 6f 75 73 65 45 78 69 |....Sub |MouseExi|
|00000670| 74 28 29 10 44 69 6d 20 | 49 20 61 73 20 49 6e 74 |t().Dim |I as Int|
|00000680| 65 67 65 72 19 46 6f 72 | 20 49 3d 31 20 54 6f 20 |eger.For| I=1 To |
|00000690| 55 62 6f 75 6e 64 28 42 | 75 74 74 6f 6e 29 15 42 |Ubound(B|utton).B|
|000006a0| 75 74 74 6f 6e 28 49 29 | 2e 48 6f 76 65 72 3d 46 |utton(I)|.Hover=F|
|000006b0| 61 6c 73 65 04 4e 65 78 | 74 0b 44 72 61 77 54 6f |alse.Nex|t.DrawTo|
|000006c0| 6f 6c 62 61 72 07 45 6e | 64 20 53 75 62 0a 4d 6f |olbar.En|d Sub.Mo|
|000006d0| 75 73 65 45 6e 74 65 72 | 01 00 01 00 03 10 53 75 |useEnter|......Su|
|000006e0| 62 20 4d 6f 75 73 65 45 | 6e 74 65 72 28 29 1a 2f |b MouseE|nter()./|
|000006f0| 2f 20 52 65 73 65 72 76 | 65 64 20 66 6f 72 20 6c |/ Reserv|ed for l|
|00000700| 61 74 65 72 20 75 73 65 | 2e 07 45 6e 64 20 53 75 |ater use|..End Su|
|00000710| 62 09 4d 6f 75 73 65 4d | 6f 76 65 01 00 01 00 1f |b.MouseM|ove.....|
|00000720| 29 53 75 62 20 4d 6f 75 | 73 65 4d 6f 76 65 28 58 |)Sub Mou|seMove(X|
|00000730| 20 41 73 20 49 6e 74 65 | 67 65 72 2c 20 59 20 41 | As Inte|ger, Y A|
|00000740| 73 20 49 6e 74 65 67 65 | 72 29 2e 44 69 6d 20 49 |s Intege|r).Dim I|
|00000750| 2c 20 4f 75 74 2c 20 49 | 6e 20 61 73 20 49 6e 74 |, Out, I|n as Int|
|00000760| 65 67 65 72 2c 20 48 6f | 76 65 72 28 30 29 20 61 |eger, Ho|ver(0) a|
|00000770| 73 20 42 6f 6f 6c 65 61 | 6e 1b 52 65 44 69 6d 20 |s Boolea|n.ReDim |
|00000780| 48 6f 76 65 72 28 55 62 | 6f 75 6e 64 28 42 75 74 |Hover(Ub|ound(But|
|00000790| 74 6f 6e 29 29 19 46 6f | 72 20 49 3d 31 20 54 6f |ton)).Fo|r I=1 To|
|000007a0| 20 55 62 6f 75 6e 64 28 | 42 75 74 74 6f 6e 29 18 | Ubound(|Button).|
|000007b0| 48 6f 76 65 72 28 49 29 | 3d 42 75 74 74 6f 6e 28 |Hover(I)|=Button(|
|000007c0| 49 29 2e 48 6f 76 65 72 | 15 42 75 74 74 6f 6e 28 |I).Hover|.Button(|
|000007d0| 49 29 2e 48 6f 76 65 72 | 3d 46 61 6c 73 65 04 4e |I).Hover|=False.N|
|000007e0| 65 78 74 19 46 6f 72 20 | 49 3d 31 20 54 6f 20 55 |ext.For |I=1 To U|
|000007f0| 62 6f 75 6e 64 28 42 75 | 74 74 6f 6e 29 19 49 66 |bound(Bu|tton).If|
|00000800| 20 42 75 74 74 6f 6e 28 | 49 29 2e 45 6e 61 62 6c | Button(|I).Enabl|
|00000810| 65 64 20 54 68 65 6e b8 | 01 49 66 20 58 3e 3d 42 |ed Then.|.If X>=B|
|00000820| 75 74 74 6f 6e 28 49 29 | 2e 4c 65 66 74 20 41 6e |utton(I)|.Left An|
|00000830| 64 20 58 3c 42 75 74 74 | 6f 6e 28 49 29 2e 4c 65 |d X<Butt|on(I).Le|
|00000840| 66 74 2b 42 75 74 74 6f | 6e 28 49 29 2e 57 69 64 |ft+Butto|n(I).Wid|
|00000850| 74 68 20 41 6e 64 20 59 | 3e 3d 42 75 74 74 6f 6e |th And Y|>=Button|
|00000860| 28 49 29 2e 54 6f 70 20 | 41 6e 64 20 59 3c 42 75 |(I).Top |And Y<Bu|
|00000870| 74 74 6f 6e 28 49 29 2e | 54 6f 70 2b 42 75 74 74 |tton(I).|Top+Butt|
|00000880| 6f 6e 28 49 29 2e 48 65 | 69 67 68 74 20 54 68 65 |on(I).He|ight The|
|00000890| 6e 14 42 75 74 74 6f 6e | 28 49 29 2e 48 6f 76 65 |n.Button|(I).Hove|
|000008a0| 72 3d 54 72 75 65 14 49 | 66 20 4e 6f 74 20 48 6f |r=True.I|f Not Ho|
|000008b0| 76 65 72 28 49 29 20 54 | 68 65 6e 04 49 6e 3d 49 |ver(I) T|hen.In=I|
|000008c0| 06 45 6e 64 20 49 66 04 | 45 6c 73 65 10 49 66 20 |.End If.|Else.If |
|000008d0| 48 6f 76 65 72 28 49 29 | 20 54 68 65 6e 05 4f 75 |Hover(I)| Then.Ou|
|000008e0| 74 3d 49 06 45 6e 64 20 | 49 66 06 45 6e 64 20 49 |t=I.End |If.End I|
|000008f0| 66 1b 45 6c 73 65 49 66 | 20 42 75 74 74 6f 6e 28 |f.ElseIf| Button(|
|00000900| 49 29 2e 48 6f 76 65 72 | 20 54 68 65 6e 15 42 75 |I).Hover| Then.Bu|
|00000910| 74 74 6f 6e 28 49 29 2e | 48 6f 76 65 72 3d 46 61 |tton(I).|Hover=Fa|
|00000920| 6c 73 65 06 45 6e 64 20 | 49 66 04 4e 65 78 74 0b |lse.End |If.Next.|
|00000930| 44 72 61 77 54 6f 6f 6c | 62 61 72 0c 49 66 20 49 |DrawTool|bar.If I|
|00000940| 6e 3e 30 20 54 68 65 6e | 0e 42 75 74 74 6f 6e 45 |n>0 Then|.ButtonE|
|00000950| 6e 74 65 72 20 49 6e 06 | 45 6e 64 20 49 66 0d 49 |nter In.|End If.I|
|00000960| 66 20 4f 75 74 3e 30 20 | 54 68 65 6e 0e 42 75 74 |f Out>0 |Then.But|
|00000970| 74 6f 6e 45 78 69 74 20 | 4f 75 74 06 45 6e 64 20 |tonExit |Out.End |
|00000980| 49 66 07 45 6e 64 20 53 | 75 62 07 4d 6f 75 73 65 |If.End S|ub.Mouse|
|00000990| 55 70 01 00 01 00 07 27 | 53 75 62 20 4d 6f 75 73 |Up.....'|Sub Mous|
|000009a0| 65 55 70 28 58 20 41 73 | 20 49 6e 74 65 67 65 72 |eUp(X As| Integer|
|000009b0| 2c 20 59 20 41 73 20 49 | 6e 74 65 67 65 72 29 21 |, Y As I|nteger)!|
|000009c0| 42 75 74 74 6f 6e 28 43 | 75 72 72 65 6e 74 42 75 |Button(C|urrentBu|
|000009d0| 74 74 6f 6e 29 2e 56 61 | 6c 75 65 3d 46 61 6c 73 |tton).Va|lue=Fals|
|000009e0| 65 0b 44 72 61 77 54 6f | 6f 6c 62 61 72 80 03 49 |e.DrawTo|olbar..I|
|000009f0| 66 20 58 3e 3d 42 75 74 | 74 6f 6e 28 43 75 72 72 |f X>=But|ton(Curr|
|00000a00| 65 6e 74 42 75 74 74 6f | 6e 29 2e 4c 65 66 74 20 |entButto|n).Left |
|00000a10| 41 6e 64 20 58 3c 42 75 | 74 74 6f 6e 28 43 75 72 |And X<Bu|tton(Cur|
|00000a20| 72 65 6e 74 42 75 74 74 | 6f 6e 29 2e 4c 65 66 74 |rentButt|on).Left|
|00000a30| 2b 42 75 74 74 6f 6e 28 | 43 75 72 72 65 6e 74 42 |+Button(|CurrentB|
|00000a40| 75 74 74 6f 6e 29 2e 57 | 69 64 74 68 20 41 6e 64 |utton).W|idth And|
|00000a50| 20 59 3e 3d 42 75 74 74 | 6f 6e 28 43 75 72 72 65 | Y>=Butt|on(Curre|
|00000a60| 6e 74 42 75 74 74 6f 6e | 29 2e 54 6f 70 20 41 6e |ntButton|).Top An|
|00000a70| 64 20 59 3c 42 75 74 74 | 6f 6e 28 43 75 72 72 65 |d Y<Butt|on(Curre|
|00000a80| 6e 74 42 75 74 74 6f 6e | 29 2e 54 6f 70 2b 42 75 |ntButton|).Top+Bu|
|00000a90| 74 74 6f 6e 28 43 75 72 | 72 65 6e 74 42 75 74 74 |tton(Cur|rentButt|
|00000aa0| 6f 6e 29 2e 48 65 69 67 | 68 74 20 54 68 65 6e 16 |on).Heig|ht Then.|
|00000ab0| 42 75 74 74 6f 6e 55 70 | 20 43 75 72 72 65 6e 74 |ButtonUp| Current|
|00000ac0| 42 75 74 74 6f 6e 06 45 | 6e 64 20 49 66 07 45 6e |Button.E|nd If.En|
|00000ad0| 64 20 53 75 62 09 4d 6f | 75 73 65 44 72 61 67 01 |d Sub.Mo|useDrag.|
|00000ae0| 00 01 00 0e 29 53 75 62 | 20 4d 6f 75 73 65 44 72 |....)Sub| MouseDr|
|00000af0| 61 67 28 58 20 41 73 20 | 49 6e 74 65 67 65 72 2c |ag(X As |Integer,|
|00000b00| 20 59 20 41 73 20 49 6e | 74 65 67 65 72 29 1e 44 | Y As In|teger).D|
|00000b10| 69 6d 20 49 20 61 73 20 | 49 6e 74 65 67 65 72 2c |im I as |Integer,|
|00000b20| 20 42 20 61 73 20 42 6f | 6f 6c 65 61 6e 0f 49 3d | B as Bo|olean.I=|
|00000b30| 43 75 72 72 65 6e 74 42 | 75 74 74 6f 6e 11 42 3d |CurrentB|utton.B=|
|00000b40| 42 75 74 74 6f 6e 28 49 | 29 2e 56 61 6c 75 65 15 |Button(I|).Value.|
|00000b50| 42 75 74 74 6f 6e 28 49 | 29 2e 56 61 6c 75 65 3d |Button(I|).Value=|
|00000b60| 46 61 6c 73 65 b8 01 49 | 66 20 58 3e 3d 42 75 74 |False..I|f X>=But|
|00000b70| 74 6f 6e 28 49 29 2e 4c | 65 66 74 20 41 6e 64 20 |ton(I).L|eft And |
|00000b80| 58 3c 42 75 74 74 6f 6e | 28 49 29 2e 4c 65 66 74 |X<Button|(I).Left|
|00000b90| 2b 42 75 74 74 6f 6e 28 | 49 29 2e 57 69 64 74 68 |+Button(|I).Width|
|00000ba0| 20 41 6e 64 20 59 3e 3d | 42 75 74 74 6f 6e 28 49 | And Y>=|Button(I|
|00000bb0| 29 2e 54 6f 70 20 41 6e | 64 20 59 3c 42 75 74 74 |).Top An|d Y<Butt|
|00000bc0| 6f 6e 28 49 29 2e 54 6f | 70 2b 42 75 74 74 6f 6e |on(I).To|p+Button|
|00000bd0| 28 49 29 2e 48 65 69 67 | 68 74 20 54 68 65 6e 14 |(I).Heig|ht Then.|
|00000be0| 42 75 74 74 6f 6e 28 49 | 29 2e 48 6f 76 65 72 3d |Button(I|).Hover=|
|00000bf0| 54 72 75 65 14 42 75 74 | 74 6f 6e 28 49 29 2e 56 |True.But|ton(I).V|
|00000c00| 61 6c 75 65 3d 54 72 75 | 65 06 45 6e 64 20 49 66 |alue=Tru|e.End If|
|00000c10| 1d 49 66 20 42 75 74 74 | 6f 6e 28 49 29 2e 56 61 |.If Butt|on(I).Va|
|00000c20| 6c 75 65 3d 4e 6f 74 20 | 42 20 54 68 65 6e 15 42 |lue=Not |B Then.B|
|00000c30| 75 74 74 6f 6e 28 49 29 | 2e 48 6f 76 65 72 3d 46 |utton(I)|.Hover=F|
|00000c40| 61 6c 73 65 0b 44 72 61 | 77 54 6f 6f 6c 62 61 72 |alse.Dra|wToolbar|
|00000c50| 06 45 6e 64 20 49 66 07 | 45 6e 64 20 53 75 62 09 |.End If.|End Sub.|
|00000c60| 4d 6f 75 73 65 44 6f 77 | 6e 01 00 01 00 0e 39 46 |MouseDow|n.....9F|
|00000c70| 75 6e 63 74 69 6f 6e 20 | 4d 6f 75 73 65 44 6f 77 |unction |MouseDow|
|00000c80| 6e 28 58 20 41 73 20 49 | 6e 74 65 67 65 72 2c 20 |n(X As I|nteger, |
|00000c90| 59 20 41 73 20 49 6e 74 | 65 67 65 72 29 20 41 73 |Y As Int|eger) As|
|00000ca0| 20 42 6f 6f 6c 65 61 6e | 10 44 69 6d 20 49 20 61 | Boolean|.Dim I a|
|00000cb0| 73 20 49 6e 74 65 67 65 | 72 19 46 6f 72 20 49 3d |s Intege|r.For I=|
|00000cc0| 31 20 54 6f 20 55 62 6f | 75 6e 64 28 42 75 74 74 |1 To Ubo|und(Butt|
|00000cd0| 6f 6e 29 19 49 66 20 42 | 75 74 74 6f 6e 28 49 29 |on).If B|utton(I)|
|00000ce0| 2e 45 6e 61 62 6c 65 64 | 20 54 68 65 6e b8 01 49 |.Enabled| Then..I|
|00000cf0| 66 20 58 3e 3d 42 75 74 | 74 6f 6e 28 49 29 2e 4c |f X>=But|ton(I).L|
|00000d00| 65 66 74 20 41 6e 64 20 | 58 3c 42 75 74 74 6f 6e |eft And |X<Button|
|00000d10| 28 49 29 2e 4c 65 66 74 | 2b 42 75 74 74 6f 6e 28 |(I).Left|+Button(|
|00000d20| 49 29 2e 57 69 64 74 68 | 20 41 6e 64 20 59 3e 3d |I).Width| And Y>=|
|00000d30| 42 75 74 74 6f 6e 28 49 | 29 2e 54 6f 70 20 41 6e |Button(I|).Top An|
|00000d40| 64 20 59 3c 42 75 74 74 | 6f 6e 28 49 29 2e 54 6f |d Y<Butt|on(I).To|
|00000d50| 70 2b 42 75 74 74 6f 6e | 28 49 29 2e 48 65 69 67 |p+Button|(I).Heig|
|00000d60| 68 74 20 54 68 65 6e 14 | 42 75 74 74 6f 6e 28 49 |ht Then.|Button(I|
|00000d70| 29 2e 56 61 6c 75 65 3d | 54 72 75 65 0f 43 75 72 |).Value=|True.Cur|
|00000d80| 72 65 6e 74 42 75 74 74 | 6f 6e 3d 49 0b 44 72 61 |rentButt|on=I.Dra|
|00000d90| 77 54 6f 6f 6c 62 61 72 | 18 42 75 74 74 6f 6e 44 |wToolbar|.ButtonD|
|00000da0| 6f 77 6e 20 43 75 72 72 | 65 6e 74 42 75 74 74 6f |own Curr|entButto|
|00000db0| 6e 0b 52 65 74 75 72 6e | 20 54 72 75 65 06 45 6e |n.Return| True.En|
|00000dc0| 64 20 49 66 06 45 6e 64 | 20 49 66 04 4e 65 78 74 |d If.End| If.Next|
|00000dd0| 0c 45 6e 64 20 46 75 6e | 63 74 69 6f 6e 05 50 61 |.End Fun|ction.Pa|
|00000de0| 69 6e 74 01 00 01 00 03 | 18 53 75 62 20 50 61 69 |int.....|.Sub Pai|
|00000df0| 6e 74 28 67 20 41 73 20 | 47 72 61 70 68 69 63 73 |nt(g As |Graphics|
|00000e00| 29 0b 44 72 61 77 54 6f | 6f 6c 62 61 72 07 45 6e |).DrawTo|olbar.En|
|00000e10| 64 20 53 75 62 00 | |d Sub. | |
+--------+-------------------------+-------------------------+--------+--------+
